home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
PRG
/
MacPerl 506 appl folder.sit
/
MacPerl 506 appl folder
/
Mac_Perl_506r1m_appl
/
eg
/
changes
< prev
next >
Wrap
Text File
|
1994-12-26
|
896b
|
35 lines
#!/usr/bin/perl -P
# $RCSfile: changes,v $$Revision: 4.1 $$Date: 92/08/07 17:20:08 $
($dir, $days) = @ARGV;
$dir = '/' if $dir eq '';
$days = '14' if $days eq '';
# Masscomps do things differently from Suns
#if defined(mc300) || defined(mc500) || defined(mc700)
open(Find, "find $dir -mtime -$days -print |") ||
die "changes: can't run find";
#else
open(Find, "find $dir ¥¥( -fstype nfs -prune ¥¥) -o -mtime -$days -ls |") ||
die "changes: can't run find";
#endif
while (<Find>) {
#if defined(mc300) || defined(mc500) || defined(mc700)
$x = `/bin/ls -ild $_`;
$_ = $x;
($inode,$perm,$links,$owner,$group,$size,$month,$day,$time,$name)
= split(' ');
#else
($inode,$blocks,$perm,$links,$owner,$group,$size,$month,$day,$time,$name)
= split(' ');
#endif
printf("%10s%3s %-8s %-8s%9s %3s %2s %s¥n",
$perm,$links,$owner,$group,$size,$month,$day,$name);
}